a 


Bas 


FFFFFFFFFRFFFFE 000000000 RRRRRRRRRRRR RRRRRRRRRRRR TITTTTTTTTTTTTT LLet 
FFFFFRFFRRFFFFE 000000000 RRRRRRRRRRRR RRRRRRRRRRRR TITTTTTTTTTTTFT Lie 
FFFFFRFRRRFFFFFE 000000000 RRRRRRRRRRRR RRRRRRRRRRRR TITTTTITTTTTTTT §=LtL 
FFF 000 000 RRR RRR RRR RRR TTT LLL 
FFF 000 000 RRR RRR RRR RRR TTT LLL 

FFF 000 RRR RRR RRR RRR TTT LLL 

FFF 000 000 RRR RRR RRR RRR TTT LLL 

FFF 000 000 RRR RRR RRR RRR TTT LLL 

FFF 000 000 RRR RRR RRR RRR TTT LLL 
FFFFFFFFFFFF 000 000 RRRRRRRRRRRR RRRRRRRRRRRR TTT LLL 
FFFFFFFFFFFE 000 000 RRRRRRRRRRRR RRRRRRRRRRRR TTT LLL 
FFFFFFFFFFFF 000 000 RRRRRRRRRRRR RRRRRRRRRRRR TTT LLL 

FFF 000 000 RRR RRR RRR = RRR TTT LLL 

FFF 000 000 RRR RRR RRR = =RRR TTT LLL 

FFF 000 RRR RRR RRR = RRR TTT LLL 

FFF 000 000 RRR RRR RRR RRR TTT LLL 

FFF 000 000 RRR RRR RRR RRR TTT LLL 

FFF 0 000 RRR RRR RRR RRR TTT LLL 

FFF 000000000 RRR RRR RRR RRR TTT LLLLLLLLLLELLLL 
FFF 000000000 RRR RRR RRR RRR TTT LLLLLLLLLLELLLL 
FFF 000000000 RRR RRR RRR RRR TTT LLLLELLLLLLLLLL 


) 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 


LOL LL LL LL LL LL LL LO LO LP LO LL LL LL 
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FFFFFFFFFE 000000 RRRRRRRR 000000 PPPPPPPP NN 
FFFFFFFFFF 009000 RRRRRRRR 000000 PPPPPPPP NN 

FF 00 OO RR RR 00 00 PP PP NN 

FF 00 OO RR RR 00 00 PP PP NN 

FF 00 00 RR RR 00 O PP PP NNNN 

FF 00 00 RR RR 00 00 PP PP NNNN IN 
FFFFFFFF 00 O00 RRRRRRRR 00 00 PPPPPPPP NN NN NN 
FFFFFFFF 00 RRRRRRRR 00 06 PPPPPPPP NN NN NN 
FF 00 00 RR RR 00 00 PP NN NNN 
FF 00 00 RR RR 00 00 PP NN 

FF 00 OO RR RR 00 OO PP N 

FF 00 00 RR RR 00 00 PP NN 

FF 000000 RR RR 000000 PP NN 

FF 000000 RR RR 000000 PP NN 

LL VIII] SSSSSSSS 

LL 1111] SSSSSSSS 

LL I] SS 

LL I] SS 

LL I] SS 

LL I] SS 

LL I] SSSSSS 

LL II SSSSSS 

LL I] SS 

LL I] SS 

LL I] SS 

LL I] SS 

LLLLLLLLLL III111 SSSSSSSS 

LLLLLLLLLL HII] SSSSSSSS 


MMMmMmmMmMmmMmmmmmncn 
MmMMmMmMmMmMmMmmMmmmmmcn 
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. 1e-8ep-1984 99: $3: ‘8 FORRTL.SRC FOROPN Nie 68231 : (1), 
; 1 001 MODULE FORSSOPEN_KEYWD CFL ITLG , Translate OPEN keyword value strings 
: § Oe TOENT = '1-0035' ! File: FOROPNKEY.B32 €Ed $ $8L1003 
oe 004 1 BEGIN 
: 5 0006 : 
: ? sith : i pee eeeeeeeeeeeeeeeeeeeeeeeeeeeeteterereneerereneeeereeeeeeeteeeeeeeeneneeeet 
; '® 
3 9 $009 1 !® COPYRIGHT (c) 1978, 1980, 1982, 1984 * 
3 10 0010 1 !* DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. * 
; i Bett : ws ALL RIGHTS RESERVED. * 
3 '® e 
3 ig $o18 1 !« ruts athe vy B 4 FURNISHED UNDER A LICENSE AND MAY BE USED AND copies * 
: 14 0014 1 !* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
3 15 0015 1 !* IN EL USION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
: 16 Bog 1 '* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
; 17 001 1 !* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
: + id | :* TRANSFERRED. * 
3 ‘@ ® 
3 20 0020 1 !* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
; 21 0021 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
3 $$ 4 : 7 CORPORATION. & 
; 'e * 
; @& 0024 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR SeEIABELETY OF ITS * 
; 25 0025 1 !* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL ® 
; @& 0026 1 !* * 
eee 4 0027 1 !* * 
: +4 it ; "aac ak mii lana inlaiianintciainiiiaiiaalaia 
; $0 0030 1 | 
s 0031 1 !+4+ 
: 3 O03 ' FACILITY: FORTRAN Support Library - Not user callable 
: 34 0034 1 | ABSTRACT: 
; 0035 1} 
3 36 0036 1! This module implements OPEN/CLOSE moveore values passed 
Tees 0037 1} by string descriptor rather than by literal value. It 
i 0038 1! scans its table for matching keywords and returns the 
: 4 s'te4 : equivalent literal value. 
: re) 8 ; ENVIRONMENT: User access mode, AST reentrant | 
: ri a948 : AUTHOR: Steven B. Lionel, CREATION DATE: 18-April-1979 
> 45 0045 1 | MODIFIED BY: 
s #& 0046 1! 
; «647 0047 1! ven B. Lionel, 18-April-1979 : Version 1 
s 68 0048 1 ! 1-001 - ay ty nal 
; «649 0049 1 ! 1-002 - Male tabion PIC. SBL 1-May-1979 ; 
; oo 0050 1 | 1-003 - Add pe keywords for stream recordtype. Use prologue file. 
3 23 Bees ! be SBL 1-March-1983 


mama aa a a a a Oe Be Be Be Ge Be Be Be Ge Be Ge Ge Ge Be Oe Be we Be He He Oe Be Be Be Oe Be Be Oe Oe Be Oe Oe Be Oe Oe Oe Oe ee BE SE Be Oe ee Be ee 
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Pa 
32:1 FORRTL.SRC oe 8 


74 
FOROPNKEY.B32;1 (2) 


; «54 $033 1! 

3 a 054 1 ! PROLOGUE FILE: 

; $ B82? 1! 

cn a p28 1 

; 3 R030 } REQUIRE ‘RTLIN:FORPROLOG'; ! FORS declarations 

: 60 01246 1! 

; 61 0125 1 ! TABLE OF CONTENTS: 

: 6¢ 0126 1! 

; 6 0127 1 

; & 0128 1 FORWARD ROUTINE 

; $2 3 9 ! FORSSOPEN_KEYWD : ! Searches keyword table 

; 67 0131 1 

: 8668 01 ; 1! 

; 69 0135 1 ! MACROS: 

$ 70 0134 1! 

; 71 0135 1 

; 7 0136 (1 CRO 

ae. 0137 1 KWD (A,X) = WORD (ZCHARCOUNT (X)), (UPLIT BYTE (X) = A)%, 
: 7% 0138 1 KWDOSW_KEY = 0,0,16,0%, 

H 75 0139 1 KWDSW_COUNT = 0,16,16,0%, 

: 76 0140 1 KWOSALKEYWD = 4:0,32,6%; 

: 77 0141 +1 

:; 7 o1eg 1! 

; 79 0143 1 ! EQUATED SYMBOLS: 

: 80 0144 1! 

3 81 0145 1 

; 82 0146 1! 

: 683 0147 1 ! OWN STORAGE: 

: BG 0148 1! 

; 0149 1 

; 86 0150 1 

3; 67 0151 1 KEYWDSACCESS: VECTOR (9) PSECT (_FORSCODE) INITIAL ( 

; «688 0136 1 WORD (OPENSK_ACC_DIR), KWD (REYWDSACCESS, 'DIRECT'), 
; «89 0153 1 WORD (OPENSK_ACC_SEQ), KWD (KEYWDSACCESS, ‘SEQUENTIAL"), 
: 90 0154 1 WORD (OPENSK_ACC_APP), KWD (KEYWDSACCESS, 'APPEND'), 
3 4 3122 : WORD (OPENSK_ACC_KEY), KWD (KEYWDSACCESS, KEYED"), 

; «93 0157 1 

: 94 0158 1 KEYWDSBLANK: VECTOR [5] PSECT (_FORSCODE) INITIAL ( 

: 95 0159 +1 WORD (OPENSK_BLK_ZER), KWD TKEYWDSBLANK, "ZERO'), 

; «496 0160 1 WORD (OPENSK_BLK_NUL), KWD (KEYWDSBLANK, ‘NULL'), 

: 3B O162 | wa 

: 99 bes 1 KEYWDOSCARRIAGE: VECTOR C7] PSECT (_FORSCODE) INITIAL ( 

: 100 0164 1 WORD (OPENSK_CAR_FOR), KWD (KEYWDSCARRIAGE, 'FORTRAN'), 
3; 101 0165 1 WORD (OPENSK_CAR_LIS), KWD (KEYWDSCARRIAGE, ‘LIST'), 
3; 102 0166 1 WORD (OPENSK_CAR-NON), KWD (KEYWDSCARRIAGE, 'NONE'), 
: ibe o168 | i 

3; 105 pies 1 KEYWOSDISPOSE: VECTOR C15] PSECT ( FORSCODE) INITIAL ( 

s 106 0170 1 WORD (OPENSK_DIS_SAV), KWD (KEYWDSDISPOSE, ‘SAVE'), 

: 107 0171 +1 WORD (OPENSK_DIS_SAV), KWD (KEYWDSDISPOSE, *KEEP") ' synonym 
; 108 Bis 1 WORD (OPENSK_DIS_DEL), KWD (KEYWOSDISPOSE, ‘"DELETE'), 
; 109 173 1 WORD (OPENSK_DIS_PRI), KWD (KEYWOSDISPOSE, 'PRINT') 

; 110 0174 #1 WORD (OPENSK_DIS_SUB), KWD (KEYWOSDISPOSE, *SUBMIT'S, 


4 40:4 AX-11 Bliss-32 V4.0-74 P | 
Hn 90:99:4 FORRTL.SRCIFOROPNKEY .B 231 er (23 
E, "PRINT/DELETE') 
E, 'SUBMIT/DELETE'S, 
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43 
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— 


WORD (OPENSK_DIS_ 
5 ag (OPENSK_DIS_ 


ELET 
DELE 
T (_FORSCODE) INITIAL ( 

he hed ohed "FORMATTED') 


KEYWOSFORM: VECTOR 
WORD (OP 
EYWOSFORM, "UNFORMATTED'), 


C 
OPENSK_FOR_ 
WORD (OPENSK FOR 


KEYWDSORGANIZ: VECTOR ( 

WORD (OP (KE 
(KEYWOSORGANIZ, 
(KEYWOSORGANIZ, 


KEYWDSRECORDTY: V 
WORD (OPENSK 


PSECT ( FORSCODE) IN 
KWD (KEYQDSRECORDTY, 
RUD Ck 


2 


W DT 
), KWD (KEYWOSRECORDTY, 
F); KWD (KEYWDSRECORDTY, 


WORD (OPENSK— 
BORD (OPENSK 


IAIN WIRIPUNIRNNINININININ 2 Oe 
WN" OC OONOUSWN —OOONOUS wr 


KEYWOSTYPE: VECTOR C9] PSECT (_FORSCODE) INITIAL 
WORD (OPENSK WOSTYPE, ‘OLD' 


( 
TYP_OLD), KWD eee ate E, ‘OLD ; 


WORD (OPENSK-TYP"SCR), KWD (KEYWOSTYPE, 'SCRATC 
WORD (OPENSK_TYPLUNK), KWD (KEYWOSTYPE, "UNKNOW 
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KEY_TABLE: VECTOR COPENSK_KEY_MAX + 1] PSECT (_FORSCODE) INITIAL ( 
8. = not used 


IT 
‘aint - KEY_TABLE), DISPOSE 
(KEYWDSACCESS - KEY_TABLE), ACCESS 
(KEYWDSFORM - KEY_TABLE), ORM 


EYWDSCARRIAGE - KEY_TABLE), 


° 


RECORDSIZE 

CARRIAGECONTROL 

READONLY 

BUF FERCOUNT 
INITIALSIZE 


XTENDSIZE 
NOSPANBLOCKS 
SHARED 


K 


nEYWOSTYPE = KEY_TABLE), 


EYWDSORGANIZ = KEY_TABLE) 
EYWDSRECORDTY - KEY_TABLES, 


AAPIPIPIMONINININININY 2 OO Oe ee a 
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me ce el ee ee el ce ee ce ee ee ce ee ee ee ee ee ee ce ce ce ee cD ce ce ce ee el el ce ee el el ee el el ce el el ce ee ee ce ee ee ee ee ee ee ee eed 


ed ce ed ced ce ced ee ce ced ce ce ce cd ee eed ed ceed cc ce ce ce ce ce ce ce ae ce ce ce ce ee ced ce ee ce ce ee cee ce cc ce ee ee cee ee ee ee ce ce ce eed eed ee ee ed ed 


PEO AAA A TINNITUS PW 


NoNPoNoNoNYy SS SS ODOUR a 


FW" OOONOAOULSWN—O 
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! Allocate virtual memor 
! Free virtual memory 


[7] 

w 

vw 
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GLOBAL ROUT INE FORSSOPEN_KEYWD ( 
KEYSTRING) = 


* 
FUNCTIONAL DESCRIPTION: 


FORSSOPEN_KEYWD is called from FORSSOPECLO_ARG inside 
FORSOPEN. It is called when an OPEN or CLOSE keyword, which 
normally has a literal value computed by the compiler, is 
given as a run-time character string. 


This routine looks up the eee string and returns the 
equivalent small integer Literal value. It ag ee Ute | 
forces upper case, and the comparison ignores trailing blanks. 
Like in the FORTRAN compiler, leading and embedded blanks are 
not allowed, and the strings must match exactly, i.e. no 
abbreviations. 


CALLING SEQUENCE: 
value.wl.v = FORSSOPEN_KEYWD (keyword.rl.v, keystring.rx.dx) 


DOO COCO OCOCOOCOOCOCOCOOOCOCOOOoOoO 


MPTMoPoNoNnononononororopononofnenofpopofrofpofnors 


SAAD NAMNIIII SS BE PEPE 


COCO OOOOOOOOOWMW MMO MOM@ODO-~V~) 
NAME WN OO OONOAUE WN $ O OONOAUE WIN 0 ODNOUW EWN OO OONAUES WN OO OONOU SW 


PORIR) tt tt st ot 


FORMAL PARAMETERS: 


: $06 


NOPORONONONRY) @ 2 a ht a 


203 <6 
soe ase keyword - The OPEN key number for the desired keyword. 
026 keystring - The address of a pate descriptor containing 
207 027 the string to be looked up. 
208 027 
209 027 IMPLICIT INPUTS: 
210 027 
211 027 NONE 
212 027 
213 027 IMPLICIT OUTPUTS: 
214 027 
215 027 NONE 
216 027 
217 028 ROUTINE VALUE: 
218 028 : : . 
219 028 -1 if ‘keyword’ has no valid Literal values. 
220 028 0 if aweyess ioe is not valid for keyword ‘‘keyword’’. 
$s} os8 The correct Literal value otherwise. 
2235 028 SIDE EFFECTS: 
224 028 
$$? 028 NONE 
26 028 
$50 029 -- 
28 029 
$$) 029 BEGIN 
0 853 
31 8 9 p 
3 29 KEYSTRING: REF BLOCK C,BYTE); 
3 859 
34 029 LOCAL 


Dr 


Page 
. (3) 


14 
PEN_KEYWD Translate OPEN keyword value strings 50 1984 00:40:4 AX-11 Bliss-32 V4.0-74 
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p-19 FORRTL.SRCJFOROPNKEY.B52;1 


KEY_TAB: REF BLOCK [,BYTE], 


1 
1 
Current table block address 


9 
9 T Base address of keyword table entr 
0 STRING_ADDR, ! Address of allocated string / 
STRING_SIZE; ! Size of allocated string 
0 + 
Hi Copy KEYSTRING to a local string, forcing upper case. 
30 
Hi STRING_SIZE = .KEYSTRING COSCS$W_LENGTH]; 
9 STRING-ADDR = FORSSGET_VM (.STRING_ SIZE); 
i BEGIN 

LOCAL 

SOURCE, ! Source string address 


DEST; ' Destination string address 
SOURCE = .KEYSTRING CDSCS$A_POINTER]; 
DEST = .STRING_ADDR; 


INCR I FROM 1 TO .STRING_SIZE DO 
BEGIN 


LOCAL 
¢; ! Character read 

C = CHSRCHAR_A (SOURCE); 

If (.¢ GEQU ZC'a’ AND .C LEQU %C'z") 


gg CHSMCHARLA (.C = CCT" = XCTAND, DEST) 
CHSWCHAR_A (.C, DEST); 
END; 


END; 
1+ 


i See if KEYWORD has an entry in the table. If not, there 
! are no Literal values allowed for this keyword. 


KEY_TAB = .KEY_TABLE C.KEYWORD]; 
HF egret tas EOC 0 


BEGIN 

FORSSFREE_ VM (.STRING_ SIZE, .STRING_ADDR); 

RETURN (-T); ! Indicates invalid argument to routine 
'¢ 
Now get the true address of the keyword table entry 


? 
8 
9 
0 
1 
2 
3 
4 
5 
6 
? 
8 
9 
0 


090808 NINN SN NSN NS 


ar 


KEY_TAB = KEY_ TABLE + .KEY_TAB; 
TAB_ADDR = .KEY_TAB; ! Save base address for relative addressing 


'¢ 
! Scan the keyword table to see if the key string matches a 
valid keyword. 


Se 


FAN 0 OONO UNE WN 0 ODNOA UE WIN  O OONOAU EWN 0 OONOAUES WNC OWDNAUE WN OOO 


PIPPOPIPIPODINININININININIWIWI AIP PIPPI NININININIW ES & SPN SS PW 
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5 3g 0 56 WHILE .KEY_TAB CKWDSW_KEY] NEQ 0 DO 

: 296 5 IF CHSEQL (. + STRING SIZE, .STRING ADDR, .KEY TAB CkWDSW_COUNTI, 
: 295 28 nen ADBR + .KEY _TAB CkWDSA _KEYWBJ, a" .*) 

3 3 60 4 BEGIN 

3 98 0361 4 FORSSFREE_VM (.STRING SIZE, - STRING ADDR); 

; 299 0 $6 4 RETURN (.REY_ TAB CkWOSW_KEY}); 

; 300 036 ; END; 

s WO 0364 KEY_TAB = .KEY_TAB + 8; ! Go to next keyword 

3 0g 0365 END? 

3 .) 8 4] 

: 08 0368 i* If r fh have found hing k 

3 4 we got here, then we must not have found a matchin ey. 
: 306 0369 be ° Pian 
; 307 0370 

; 308 0371 FORSSFREE_VM (.STRING_SIZE, .STRING_ADDR); 

; 309 b378 RETURN (O03; ! indicated keyword value error 

; 310 037 

3 (311 0374 1 END; 


-TITLE FORSSOPEN_KEYWD Translate OPEN keyword value st 
rings 

JIDENT \1=003\ 

-PSECT _FORSCODE,NOWRT, SHR, PIC,2 


Mw 
wor 
Puke 
D-we 


I \DIRECT\ 

I \SEQUENTIAL\ 
I \APPEND\ 

I peal 


Puke 
Mn 
Pues 
Mmouwnwo 
Be Be Be we 


zx vuvuvv 
> 
P ad 
oO 
> 
wn 
oo 
ro 


2B K 
0001 EPUBGAC CESS: 


1 
0006 . 6 
00000000* -LONG <P.AAA=KEYWDSACCESS> 
0002 . 2 
QOOA 
eat ++ 
0006 
00000000* 


° 10 
- LONG $F -AAS-TE OEE OS? 


6 
eas dieaiteattttatics 


te 


. 5 
- LONG - adie aaa init 


eL 
P.AAE: .ASCII \ZERO\ 
P.AAF: .ASCII \NULL\ 
ehbaterest” 


£ 
oO 
2 z 
Go eo J o-W 
Tere ee Te Tere re Tere rererererey 


. 4 
- LONG 9 EE 


+ 


SoOooooo DOOCOOCOOOOOOSOOSS COoCooooO 
CoOoOoocoSo COOOSCOCOCOOSCoOoOSOSOoOS oOoo°oco 
SoOoOoSCSoo BSOCOCOCCoOoCoSOCoCoSoSoOOoO SOoCoCOooo 
PAA PE PWWNWIINININININN So OO 
WOEMVOOF BLOOCOSLOMOOASOM OBMOero 

_— 

oO 

2 

i) 


, 

o 

xz p°] 

LJ 
Sete Se Se ee eee 


. 4 
- LONG ga EIS? 
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4E 41 52 2 
4 
45 


Pueum 

Oforer 

St et et et eh A 

omMmomumnow 

yo? oP oP oP at ta) 

MONOOMUMO 

VIMNUINA ES & SOO 

MNMwnovinn—00 

VWMIVINE ENQooo0o00oo 

MOUS SOUS SUMO Snve 
SOOSCOCOSSO OOCOCCOCOCOOCOCOCOOCOOCOOOCOOOSOOCOOSOO OOOO OCOCOOOCOOCOOOCOOOCOOCOOCOO COOOCOO 

im OFro-wao 
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o Oo 
o Oo 
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= 


OMOoOoelLo 


“oO 
NR SS OOOO TV TMMMmMmM 


49 54 4E 45 55 51 


FORRTL.SRC 


FORTRAN\ 
\LIST\ 
\NONE \ 
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71 
\ 


eal 
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a nee 
4 
ee 


4 
"Pecan inateetsetet 


1 
4 
hat Riiaaatarectatl 


4 
7 eee arse eeee 


6 
<P. AAL~KEYWD$DISPOSE> 
2 


5 

ec eaabtlraancedetmaticetit 
6 

oP AA-EE OEOL SPORE? 
12 

 eninchieechdannasc tet 


13 
teen liariiaainael 


\FORMATTED\ 
\UNF ORMATTED\ 


1 
9 
<P, AAQ-KE YWDSFORM> 


1 
<P. AAR~KE YWDSFORM> 
\SEQUENTIAL\ 
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H 14 
FORSSOPEN_KEYWD Translate OPEN keyword value strings 16-Sep-1984 09: $9: *6 AX-11 Bliss-32 V4.0-74 Page 11. , 
1-003 14-Sep P1984 :32:1 FORRTL.SRCJFOROPNKEY.B32;1 (3) 

A 12 QOO7A BNEQ 7$ ; : 
7 7D 0007C¢ MOV STRING size -(SP) : 0361 : 
§ B O007F CALLS FORSSF REE. vM ; : 
64 3¢ é HOV WL ‘key PAB), ; 0362 : 
54 08 ¢ 7$ ADDL2 ’ , KEY_TAB ; 0388 : 
4 D B 8$: MOVO Str ING, § -(SP) : 1 i 
6 FB CALLS We, F $i7e ee _VM : 
ps CLAL : 0372. 
4 0009 RET : 0374. 


; Routine Size: 148 bytes, Routine Base: _FORSCODE + 0260 


14 | 
FORSSOPEN_KEYWD Translate OPEN keyword value strings 1b-Se 1984 00:40:4 AX-11 Bliss-32 V4.0-74 Page 12 
et “ . . 14-Sep-19 4 99:43: 3 FORRTL.SRCJFOROPNKEY.B52;1 “ (4) | 
13 O32 !End of module 
; 314 0 ELuDOM 
; PSECT SUMMARY 
; Name Bytes Attributes ‘ 
; _FORSCODE 756 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) : 
3 Library Statistics : 
BS re Eh le ine poe ae. fay Symbols -------- Pages Processing : 
; File Total Loaded Percent Mapped Time : 
; ~$355SDUA28: [SySL IBJSTARLET 132: 1 9776 2 0 581 00:01.1 | : 
3 .$255$0 OBJ JFORLIB.L32;1 711 31 4 52 00:00.6 ; 
: “$538SDUASB: CFORRTL, OBYIRTLLIB.L 3951 36 0 0 8 00:00.1 ‘ 
| 
; COMMAND QUALIFIERS | 
; FU SES/EME CROCE FELD. INITIAL .OPTIRIZE) /MOTRACE/L SE 94. 15817 CROPHNE V/08.90BJ8 1F GROPUREY MSRC$:F OROPNKE Y/UPDATE=(ENH$:F OROPNKEY | 
Size: 148 code + 608 data bytes 
Run Time: 709.4 


Elapsed Time: 00:23.4 
Lines/CPU Min: 2400 
Lexemes/CPU-Min: 17265 
poe | Used: 98 pages 

Compila 
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